From: John Paul Wallington <jpw@pobox.com>
Date: Tue, 6 Jul 2004 01:36:29 +0000 (+0000)
Subject: (Fdefmacro): Signal an error if NAME is not a symbol.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~21720
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=63f4f3cf46e8358d97ff675ce757d576cddf164c;p=emacs.git

(Fdefmacro): Signal an error if NAME is not a symbol.
---

diff --git a/src/eval.c b/src/eval.c
index 096755f9c77..d7cfe959158 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -657,6 +657,7 @@ usage: (defmacro NAME ARGLIST [DOCSTRING] [DECL] BODY...)  */)
   Lisp_Object lambda_list, doc, tail;
 
   fn_name = Fcar (args);
+  CHECK_SYMBOL (fn_name);
   lambda_list = Fcar (Fcdr (args));
   tail = Fcdr (Fcdr (args));